The Mac 13/the-mac-13.iso/On The Rom/100 Best Mac CD-ROMs Selection/UNZIP-DEMO/ZIPFILES/man00/00028.ls

Text File | 1995-05-25 | 1.8 KB | 89 lines

on kroll
  global ship
  if the mouseCast = the castNum of sprite 3 then
    if ship = 1 then
      go("boxroll")
    end if
  end if
  if the mouseCast = the castNum of sprite 3 then
    if ship = 0 then
      go("boxroll2")
    end if
  end if
  if the mouseCast = the castNum of sprite 16 then
    if ship = 1 then
      go("cam")
    end if
  end if
  if the mouseCast = the castNum of sprite 16 then
    if ship = 0 then
      go("cam2")
    end if
  end if
  if the mouseCast = the castNum of sprite 18 then
    if ship = 1 then
      go("book1")
    end if
  end if
  if the mouseCast = the castNum of sprite 18 then
    if ship = 0 then
      go("book2")
    end if
  end if
  if the mouseCast = the castNum of sprite 20 then
    set the castNum of sprite 23 to 79
    updateStage()
  else
    set the castNum of sprite 23 to 78
    updateStage()
  end if
  if the mouseCast = the castNum of sprite 21 then
    if ship = 1 then
      go("sign1")
      exit
    end if
  end if
  if the mouseCast = the castNum of sprite 21 then
    if ship = 0 then
      go("sign2")
      exit
    end if
  end if
  if the mouseCast = the castNum of sprite 22 then
    if ship = 1 then
      go("speed1")
      exit
    end if
  end if
  if the mouseCast = the castNum of sprite 22 then
    if ship = 0 then
      go("speed2")
      exit
    end if
  end if
  if the mouseCast = the castNum of sprite 25 then
    if ship = 1 then
      go("speed3")
      exit
    end if
  end if
  if the mouseCast = the castNum of sprite 25 then
    if ship = 0 then
      go("speed4")
      exit
    end if
  end if
  if the mouseCast = the castNum of sprite 28 then
    if ship = 1 then
      go("coke")
      exit
    end if
  end if
  if the mouseCast = the castNum of sprite 28 then
    if ship = 0 then
      go("coke2")
      exit
    end if
  end if
end